#!/usr/bin/env perl
use 5.10.0;
use strict;

#读取文件
#反序输出
for (<>) {
    my $str = reverse $_;
    say ($str);
}
